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FACILITY: LANGUAGE INDEPENDENT SUPPORT 


ABSTRACT: 
This module contains the routine that converts packed numbers 
to floating. 


VERSION: 1 
HISTORY: 


AUTHOR : 
Marty Jack, 14-Mar-1979 


MODIFIED BY: 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
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-SBTTL HISTORY ; Detailed Current Edit History 


Edit History for Version 1 of OTSCVTPF 


Original. MLJ 14-Mar-1979 

Make external references exp ie "ti R 17*JULY-1979 

change os all prlggernces to FORSC N_D fe t o OTSSCVT_T_D 
ais, 4 na BF RKR_ 18-0CT- vin 

change | gourss name to OTS$ but retain old entry point name. 
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$3 -SBTTL DECLARATIONS 
65 ; 
¢ ; INCLUDE FILES: 
8 SOSCDEF 
sé ; 
71 ; EXTERNAL SYMBOLS: 
ye -DSABL GBL ; Prevent undeclared symbols from being 
0 t ; automatically global 
p 73 -EXTRN OTSSCVT_T_D ; D, E. F. G Conversion routine 
3 
78 ; 
00 79 ; MACROS: 
000 0; NONE 
it 13 
a3 
000 4 ; PSECT DECLARATIONS: 
000000 5 -PSECT _OTSSCODE PIC, SHR, LONG, EXE, NOWRT,- 
0000 § USR, CON, REL, LCL, RD 
0000 
000 8 ; 
000 9 ; EQUATED SYMBOLS: 
000 90 ; NONE 
0000 91 ; 
0000 38 
0000 ve 3 
48 94 ; OWN STORAGE: 
8 0 95 ; NONE 
000 96 ; 
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FUNCTIONAL DESCRIPTION: 

; Converts packed numbers to floating. 

; CALLING SEQUENCE: 
JSB OTSSCVTPF_RO (scale.rl.v, srclen.rl.v, src.rp.r, dst.wf.r) 
Arguments are passed in R6, R7, RB and R9. 

INPUT PARAMETERS: 

SCALE.rl.v The power of ten by which the internal 
multiplied to scale the seme os the” 
internal representation of the dest. 

SRCLEN.rl.v The number of digits in the source 

SRC.rp.r The number to be converted 

IMPLICIT INPUTS: 
ALL of the trap bits in the PSL are assumed off. 
OUTPUT PARAMETERS: 
OST.wf.r The place to store the converted number 
IMPLICIT OUTPUTS: 
NONE 
FUNCTION VALUE: 
; 1 = SUCCESS, 0 = FAILURE 
; SIDE EFFECTS: 


Destroys registers RO through R9. 
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OTSSCVTPF_R9:: 
COBSCVTPF_R9:: 
3 28 ce : SOBL2 #40,SP ; Space for temp string and result 
08 AE IF 6 0 CVTPS 7, (RB) ,#31,8(SP) ; Make a separate sign string 
: Make a descriptor for the leading separate string. 
53 pp ; PUSHL R3 ; Address = temp string 
7E 1 MOVB #OSC$K_CLASS_S,-(SP) 3; Class = static 
7E f 9 ‘ MOVB At Se DTYPE_T,-(SP) ; Data type_= ASCII text 
7E B + } MOVW #32,-(5P) ; Length = 32 bytes 
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-SEP-1984 LIBRTL SRE SOTscV VTPF MAR; 1 (4) 
| 5 ; Now call the conversion routine. 
1 5 , MNEGL RR 7 (SP) 3 Hi e factor 
1 8 PUSHL # 3; Digits in fraction 
15 PUSHAB 13¢$8} ; Address of result area 
160 PUSHAB 12(SP) ; Address of descriptor 
161 CALLS #4,G*OTSSCVT_T_D ; Call the routine 
196 BLBC RO.c ; Failure, must be overflow 
16 CVTOF (§p), (RO) : Store result 
164 BVS $ 3; Br if overflowed 
165 L #1,R0 3 Indicate success 
196 1$ ADDL2 #48,SP ; Delete stack temps 
1° ; Return 
183 : Come here on overflow to store the reserved operand. 
171 2$: ASHL = #15,41, (R9) ; Store reserved operand 
7 CLRL RO ; Indicate failure 
M7 BRB 1$ 3; Delete stack temps and return 
175 ° END 
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Phase 
Initialization 
Command processing 
Pass 

— table sort 


cess f table output 
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Cross-reference output 
Assembler run totals 
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! Psect synopsis ! 


temas semana aceon oaen} 


Allocation PSECT No. Attributes 

444 8 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD wet NOVEC BYTE 
0 ( af 1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD NOVEC BYTE 

OOOOO3SE « 62.) G2 ¢ PIC USR CON REL LCL SHR’ EXE RD NOURT NOVEC LONG 
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; Macro Library statistics ; 


_$255$D0UA28: CSYSLIBISTARLET.MLB; 2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 
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